program image_trainer;

uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas',
  blob in 'mainUnits\blob.pas',
  CannyEdge in 'mainUnits\CannyEdge.pas',
  FANN in 'mainUnits\FANN.pas',
  FannNetwork in 'mainUnits\FannNetwork.pas',
  GR32_FloatMap in 'mainUnits\GR32_FloatMap.pas',
  ImageTrainer in 'mainUnits\ImageTrainer.pas';

{$R *.res}
var
  hMutex: THandle;
begin
  hMutex := CreateMutex(nil, False, 'Frm_Main');
  if WaitForSingleObject (HMutex, 0) = WAIT_TIMEOUT then
  begin
    Application.Terminate;
    exit;
  end
  else
  begin
  Application.Initialize;
  Application.Title := 'Trainer Kit';
  Application.CreateForm(TFrm_Main, Frm_Main);
  Application.Run;
  end;
end.
